home *** CD-ROM | disk | FTP | other *** search
- WINDOWPROPERTIES
- NAME:mytest
- CLOSESCRIPT:put @WindowName into wn┬
- set the donterase of window wn to winc(wn)
- USELOCALRECTS:true
- RECT:7,186,151,388
- COLLAPSEDRECT:5,60,155,59
- HSCROLL:false
- VSCROLL:false
- GROWICON:false
- SCROLL:0,0
- COLLAPSED:false
- WANTSIDLETIME:true
- ANIMATEDCURSORID:0
- DONTERASE:false
- NEVERSELECT:false
- USEPALETTEID:0
- CURSOR:128
- IDLESCRIPT:
- USERDATA:
- SELECTSCRIPT:
- PUTFILEDIALOGID:4500
- SAVEBEFORECLOSING:true
- ISCOLLAPSABLE:true
- LIMITWINDOWRECT:true
- SAVEMETHOD:Resource
- SAVECHANGES:true
-
- PICTURE
- NAME:Picture1
- VISIBLE:true
- SCRIPT:
- CURSOR:128
- TYPE:Resource
- PATH:FindPic
- TOPLEFT:-1,0
- RECT:-1,0,332,202
- FITTOFRAME:false
- HASFRAME:false
- MASK:false
- SCROLL:0,0
- TRIMRECT:-1,-1,-1,-1
- USERDATA:
- INKMODE:srcCopy
- COLORTABLEID:0
- DITHER:false
-
- PICTURE
- NAME:Dots
- VISIBLE:true
- SCRIPT:
- CURSOR:128
- TYPE:Resource
- PATH:Dots
- TOPLEFT:2,3
- RECT:2,3,13,55
- FITTOFRAME:false
- HASFRAME:false
- MASK:true
- SCROLL:0,0
- TRIMRECT:-1,-1,-1,-1
- USERDATA:
- INKMODE:srcCopy
- COLORTABLEID:0
- DITHER:false
-
- PICTURE
- NAME:Dot
- VISIBLE:true
- SCRIPT:
- CURSOR:128
- TYPE:Resource
- PATH:Dot
- TOPLEFT:2,3
- RECT:2,3,12,14
- FITTOFRAME:false
- HASFRAME:false
- MASK:true
- SCROLL:0,0
- TRIMRECT:-1,-1,-1,-1
- USERDATA:
- INKMODE:srcCopy
- COLORTABLEID:0
- DITHER:false
-
- TEXT
- NAME:DesignCount
- VISIBLE:true
- SCRIPT:
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:111,3,144,17
- HASFRAME:false
- INSET:1
- TRANSPARENT:true
- EDITABLE:true
- SELECTABLE:true
- PAGE:0
- NUMBEROFPAGES:0
- SCROLL:0,0
- HASVSCROLL:false
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:1,0
- DEFAULTFONT:Palatino
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA:
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Right
- PAGEBREAKTABLE:
-
- TEXT
- NAME:TurnSignalsCount
- VISIBLE:true
- SCRIPT:
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:111,16,144,30
- HASFRAME:false
- INSET:1
- TRANSPARENT:true
- EDITABLE:true
- SELECTABLE:true
- PAGE:0
- NUMBEROFPAGES:0
- SCROLL:0,0
- HASVSCROLL:false
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:1,0
- DEFAULTFONT:Palatino
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA:
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Right
- PAGEBREAKTABLE:
-
- TEXT
- NAME:ThingsCount
- VISIBLE:true
- SCRIPT:
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:111,29,144,43
- HASFRAME:false
- INSET:1
- TRANSPARENT:true
- EDITABLE:true
- SELECTABLE:true
- PAGE:0
- NUMBEROFPAGES:0
- SCROLL:0,0
- HASVSCROLL:false
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:1,0
- DEFAULTFONT:Palatino
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA:
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Right
- PAGEBREAKTABLE:
-
- TEXT
- NAME:SupplementCount
- VISIBLE:true
- SCRIPT:
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:111,42,144,56
- HASFRAME:false
- INSET:1
- TRANSPARENT:true
- EDITABLE:true
- SELECTABLE:true
- PAGE:0
- NUMBEROFPAGES:0
- SCROLL:0,0
- HASVSCROLL:false
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:1,0
- DEFAULTFONT:Palatino
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA:
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Right
- PAGEBREAKTABLE:
-
- TEXT
- NAME:DesignFinds
- VISIBLE:false
- SCRIPT:put @WindowName into wn┬
- put @ClickLine into cl┬
- put @Target into targ┬
- get the designfinds_textdata of window wn┬
- if cl <> ""┬
- then┬
- get line cl of it┬
- hiliteline wn,targ,cl┬
- if last char of it = "┬" then delete last char of it┬
- put the UserData of window @WindowName into thetext┬
- if it <> "" then gotofoundpage 2,it,thetext┬
- set the runhandler of window @WindowName to unhiliteline┬
- end if
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:3,60,142,195
- HASFRAME:true
- INSET:1
- TRANSPARENT:false
- EDITABLE:false
- SELECTABLE:false
- PAGE:1
- NUMBEROFPAGES:0
- SCROLL:0,0
- HASVSCROLL:true
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:1,0
- DEFAULTFONT:Geneva
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA:
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Default
- PAGEBREAKTABLE:
-
- TEXT
- NAME:TurnSignalsFinds
- VISIBLE:false
- SCRIPT:put @WindowName into wn┬
- put @ClickLine into cl┬
- put @Target into targ┬
- get the TurnSignalsFinds_textdata of window wn┬
- if cl <> ""┬
- then┬
- get line cl of it┬
- hiliteline wn,targ,cl┬
- if last char of it = "┬" then delete last char of it┬
- put the UserData of window @WindowName into thetext┬
- if it <> "" then gotofoundpage 3,it,thetext┬
- set the runhandler of window @WindowName to unhiliteline┬
- end if
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:3,60,142,195
- HASFRAME:true
- INSET:1
- TRANSPARENT:false
- EDITABLE:false
- SELECTABLE:false
- PAGE:0
- NUMBEROFPAGES:0
- SCROLL:0,0
- HASVSCROLL:true
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:1,0
- DEFAULTFONT:Geneva
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA:
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Default
- PAGEBREAKTABLE:
-
- TEXT
- NAME:ThingsFinds
- VISIBLE:false
- SCRIPT:put @WindowName into wn┬
- put @ClickLine into cl┬
- put @Target into targ┬
- get the ThingsFinds_textdata of window wn┬
- if cl <> ""┬
- then┬
- get line cl of it┬
- hiliteline wn,targ,cl┬
- if last char of it = "┬" then delete last char of it┬
- put the UserData of window @WindowName into thetext┬
- if it <> "" then gotofoundpage 4,it,thetext┬
- set the runhandler of window @WindowName to unhiliteline┬
- end if
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:3,60,142,195
- HASFRAME:true
- INSET:1
- TRANSPARENT:false
- EDITABLE:false
- SELECTABLE:false
- PAGE:0
- NUMBEROFPAGES:0
- SCROLL:0,0
- HASVSCROLL:true
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:1,0
- DEFAULTFONT:Geneva
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA:
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Default
- PAGEBREAKTABLE:
-
- TEXT
- NAME:SupplementFinds
- VISIBLE:false
- SCRIPT:put @WindowName into wn┬
- put @ClickLine into cl┬
- put @Target into targ┬
- get the SupplementFinds_textdata of window wn┬
- if cl <> ""┬
- then┬
- get line cl of it┬
- hiliteline wn,targ,cl┬
- if last char of it = "┬" then delete last char of it┬
- put the UserData of window @WindowName into thetext┬
- if it <> "" then gotofoundpage 5,it,thetext┬
- set the runhandler of window @WindowName to unhiliteline┬
- end if
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:3,60,142,195
- HASFRAME:true
- INSET:1
- TRANSPARENT:false
- EDITABLE:false
- SELECTABLE:false
- PAGE:0
- NUMBEROFPAGES:0
- SCROLL:0,0
- HASVSCROLL:true
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:1,0
- DEFAULTFONT:Geneva
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA:
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Default
- PAGEBREAKTABLE:
-
- TEXT
- NAME:DesignLabel
- VISIBLE:true
- SCRIPT:put @WindowName into wn┬
- put @Target into tn┬
- set lockscreen of window wn to true┬
- do "get the"&&tn&"_Rect of window"&"e&wn"e┬
- get "2,"& item 2 of it┬
- set the Dot_Topleft of window wn to it┬
- get tn┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- put "Finds" after it┬
- set the Designfinds_visible of window wn to false┬
- set the TurnSignalsfinds_visible of window wn to false┬
- set the Thingsfinds_visible of window wn to false┬
- set the Supplementfinds_visible of window wn to false┬
- do "set the"&&it&"_visible of window"&"e&wn"e&&"to true"┬
- set lockscreen of window wn to false
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:1,3,143,17
- HASFRAME:false
- INSET:1
- TRANSPARENT:true
- EDITABLE:false
- SELECTABLE:false
- PAGE:0
- NUMBEROFPAGES:1
- SCROLL:0,0
- HASVSCROLL:false
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:19,18
- DEFAULTFONT:Palatino
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA: In Design of╔
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Default
- PAGEBREAKTABLE:1
-
- TEXT
- NAME:TurnSignalsLabel
- VISIBLE:true
- SCRIPT:put @WindowName into wn┬
- put @Target into tn┬
- set lockscreen of window wn to true┬
- do "get the"&&tn&"_Rect of window"&"e&wn"e┬
- get "2,"& item 2 of it┬
- set the Dot_Topleft of window wn to it┬
- get tn┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- put "Finds" after it┬
- set the Designfinds_visible of window wn to false┬
- set the TurnSignalsfinds_visible of window wn to false┬
- set the Thingsfinds_visible of window wn to false┬
- set the Supplementfinds_visible of window wn to false┬
- do "set the"&&it&"_visible of window"&"e&wn"e&&"to true"┬
- set lockscreen of window wn to false
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:1,16,143,30
- HASFRAME:false
- INSET:1
- TRANSPARENT:true
- EDITABLE:false
- SELECTABLE:false
- PAGE:1
- NUMBEROFPAGES:1
- SCROLL:0,0
- HASVSCROLL:false
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:22,21
- DEFAULTFONT:Palatino
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA: In Turn Signals╔
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Default
- PAGEBREAKTABLE:1
-
- TEXT
- NAME:ThingsLabel
- VISIBLE:true
- SCRIPT:put @WindowName into wn┬
- put @Target into tn┬
- set lockscreen of window wn to true┬
- do "get the"&&tn&"_Rect of window"&"e&wn"e┬
- get "2,"& item 2 of it┬
- set the Dot_Topleft of window wn to it┬
- get tn┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- put "Finds" after it┬
- set the Designfinds_visible of window wn to false┬
- set the TurnSignalsfinds_visible of window wn to false┬
- set the Thingsfinds_visible of window wn to false┬
- set the Supplementfinds_visible of window wn to false┬
- do "set the"&&it&"_visible of window"&"e&wn"e&&"to true"┬
- set lockscreen of window wn to false
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:1,29,143,43
- HASFRAME:false
- INSET:1
- TRANSPARENT:true
- EDITABLE:false
- SELECTABLE:false
- PAGE:0
- NUMBEROFPAGES:1
- SCROLL:0,0
- HASVSCROLL:false
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:21,20
- DEFAULTFONT:Palatino
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA: In Things That╔
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Default
- PAGEBREAKTABLE:1
-
- TEXT
- NAME:SupplementLabel
- VISIBLE:true
- SCRIPT:put @WindowName into wn┬
- put @Target into tn┬
- set lockscreen of window wn to true┬
- do "get the"&&tn&"_Rect of window"&"e&wn"e┬
- get "2,"& item 2 of it┬
- set the Dot_Topleft of window wn to it┬
- get tn┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- delete last char of it┬
- put "Finds" after it┬
- set the Designfinds_visible of window wn to false┬
- set the TurnSignalsfinds_visible of window wn to false┬
- set the Thingsfinds_visible of window wn to false┬
- set the Supplementfinds_visible of window wn to false┬
- do "set the"&&it&"_visible of window"&"e&wn"e&&"to true"┬
- set lockscreen of window wn to false
- CURSOR:128
- TYPE:Describe
- PATH:@StackPath:Sample Text:myTextFile
- RECT:1,42,143,56
- HASFRAME:false
- INSET:1
- TRANSPARENT:true
- EDITABLE:false
- SELECTABLE:false
- PAGE:1
- NUMBEROFPAGES:1
- SCROLL:0,0
- HASVSCROLL:false
- LINEHEIGHTFONTASCENT:-1,-1
- SELECTION:20,19
- DEFAULTFONT:Palatino
- DEFAULTSIZE:9
- DEFAULTSTYLE:plain
- TEXTDATA: In Supplements
- USERDATA:
- MOVEMOUSETICKS:0
- ALIGNMENT:Default
- PAGEBREAKTABLE:1
-
- TRANSPARENTBUTTON
- NAME:TurnSignalsGray
- VISIBLE:true
- SCRIPT:
- CURSOR:128
- RECT:1,16,143,29
- HASFRAME:false
- USERDATA:
- ISTRANSPARENT:false
- RGBFILLCOLOR:0,0,0
- INKMODE:subPin
-
- TRANSPARENTBUTTON
- NAME:DesignGray
- VISIBLE:true
- SCRIPT:
- CURSOR:128
- RECT:1,3,143,16
- HASFRAME:false
- USERDATA:
- ISTRANSPARENT:false
- RGBFILLCOLOR:0,0,0
- INKMODE:subPin
-
- TRANSPARENTBUTTON
- NAME:ThingsGray
- VISIBLE:true
- SCRIPT:
- CURSOR:128
- RECT:2,29,144,42
- HASFRAME:false
- USERDATA:
- ISTRANSPARENT:false
- RGBFILLCOLOR:0,0,0
- INKMODE:subPin
-
- TRANSPARENTBUTTON
- NAME:SupplementGray
- VISIBLE:true
- SCRIPT:
- CURSOR:128
- RECT:2,42,144,56
- HASFRAME:false
- USERDATA:
- ISTRANSPARENT:false
- RGBFILLCOLOR:0,0,0
- INKMODE:subPin
-
- HANDLER
- NAME:UnHiliteLine
- SCRIPT:get "set the"&&@Target&"_Selectable of window"&"e&@WindowName"e&&"to false"┬
- do it
-